home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 November / Practical Internet November 2002.iso / pc / Software / Workshops / gg_setup.exe / #setuppath# / ggcss.exe / cfg.asp < prev    next >
Encoding:
Text File  |  2002-05-28  |  6.3 KB  |  161 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!-- #include file="connex.asp" -->
  3. <%
  4. On Error Resume Next
  5. set rsConfig = Server.CreateObject("ADODB.Recordset")
  6. rsConfig.ActiveConnection = connex
  7. rsConfig.Source = "SELECT * FROM CONFIG"
  8. rsConfig.CursorType = 0
  9. rsConfig.CursorLocation = 2
  10. rsConfig.LockType = 3
  11. rsConfig.Open()
  12. rsConfig_numRows = 0
  13. CSS_LOCATION=rsConfig.Fields.Item("CSS_LOCATION").Value
  14. %>
  15. <html>
  16. <head>
  17. <title>Config</title>
  18. <meta http-equiv="Content-Language" content="en-us">
  19. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  20. <LINK REL=StyleSheet HREF="tool.css" TYPE="text/css">
  21. <base target="_self">
  22. </head>
  23. <body bgcolor="#FFFFFF" text="#C0C0C0" background="images/dark_blue.jpg" topmargin="0" leftmargin="0" link="#C0C0C0" vlink="#C0C0C0">
  24. <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber4" bgcolor="#000080" cellpadding="0">
  25.   <tr>
  26.     <td width="94%" bgcolor="#003C80"><b>
  27.     <font face="Arial" size="2" color="#C0C0C0"> <font color="#C0C0C0">Preferences</font></font></b></td>
  28.     <td width="6%" bgcolor="#003C80">
  29.     <p align="right"><b><font face="Arial" size="2" color="#C0C0C0">
  30.     <a href="help.asp" style="text-decoration: none"><font color="#C0C0C0">Help</font></a>  
  31.     </font></b></td>
  32.   </tr>
  33. </table>
  34. <%
  35. If Err Then
  36. Response.Write "<font face='Arial'><font color='#FF0000'> There was an error processing this page, please make sure you meet the </font>"
  37. Response.Write "<a target='_blank' href='http://www.graphic-group.com/inline_frames/ggcss/about.asp'>"
  38. Response.Write "<font color='#FF0000'>system requirements</font></a><font color='#FF0000'>.</font></font>"
  39. End If
  40. %>
  41. <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
  42.   <tr>
  43.     <td width="10%">
  44.      </td>
  45.     <td width="90%">
  46.    </td>
  47.   </tr>
  48.   <tr>
  49.     <td width="10%">
  50.     <p align="center"><b><font face="Arial" size="2" color="#CCCCCC">
  51.     <a target="_self" title="Preview the selected stylesheet" href="view_styleSheet.asp"><font color="#C0C0C0">View 
  52.     CSS</font></a></font></b></td>
  53.     <td width="90%">
  54.    </td>
  55.   </tr>
  56.   <tr>
  57.     <td width="10%">
  58.     <p align="center">
  59.    </td>
  60.     <td width="90%">
  61.   <p></p>
  62.   <p>
  63.   </td>
  64.   </tr>
  65. </table>
  66. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
  67.   <tr>
  68.     <td width="100%"> </td>
  69.   </tr>
  70. </table>
  71. <table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  72.   <tr>
  73.     <td width="10%">
  74.     <p align="center"><u><b><font face="Arial" size="2" color="#C0C0C0">Edit</font></b></u></td>
  75.     <td width="90%">
  76.      </td>
  77.   </tr>
  78.   <tr>
  79.     <td width="1%">
  80.     <p align="center">
  81. <font face="Arial" color="#C0C0C0">
  82.     <input type="button" onClick=document.location.href='file_browser.asp?SRCHTYP=WP' value="Homepage" class="buttons"></font></td>
  83.     <td width="107%"><p align="left">
  84. <font face="Arial" size="2" color="#C0C0C0"> </font><font color="#C0C0C0"><font face="Arial" size="2">  <b><%=(rsConfig.Fields.Item("HOME_PAGE").Value)%>  </b></font></p>
  85. </td>
  86.   </tr>
  87.   <tr>
  88.     <td width="1%">
  89.     <p align="center">
  90. <font face="Arial" color="#C0C0C0">
  91.     <input type="button" onClick=document.location.href='file_browser.asp?SRCHTYP=SS' value="StyleSheet" class="buttons"></font></td>
  92.     <td width="107%"><b><font face="Arial" size="2" color="#C0C0C0">
  93.     <p align="left">
  94. <font face="Arial" size="2"> </font>  <%=CSS_LOCATION%>  </font></p>
  95. </font></b></td>
  96.   </tr>
  97.   </table>
  98. <p> </p>
  99. <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
  100.   <tr>
  101.     <td width="10%">
  102.     <p align="center"><u><b><font face="Arial" size="2" color="#C0C0C0">Update 
  103.     Class</font></b></u></td>
  104.     <td width="90%"> </td>
  105.   </tr>
  106.   <tr>
  107.   <form method="POST" action="c_field.asp"><p align="center">
  108.     <td width="10%">
  109.     <p align="center">
  110.   <input type="submit" value="Fields" name="B1" class="buttons"></td>
  111.     <td width="90%">
  112.   <input type="text" name="FIELD_CLASS" size="20" value="<%=(rsConfig.Fields.Item("C_FIELD").Value)%>">
  113.   </td>
  114.   </form>
  115.   </tr>
  116.   <tr>
  117.    <form method="POST" action="c_button.asp"><p align="center"><p align="center">
  118.     <td width="10%">
  119.     <p align="center">
  120.   <input type="submit" value="Buttons" name="B2" class="buttons"></td>
  121.     <td width="90%">
  122.   <input type="text" name="BUTTON_CLASS" size="20" value="<%=(rsConfig.Fields.Item("C_BUTTON").Value)%>">
  123.   </td>
  124.    </form>
  125.   </tr>
  126. </table>
  127. <p> </p>
  128. <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
  129.   <tr>
  130.     <td width="11%">
  131.     <p align="center"><u><b><font face="Arial" color="#C0C0C0" size="2">Fonts</font></b></u></td>
  132.     <td width="89%"> </td>
  133.   </tr>
  134.   <tr>
  135.   <form method="POST" name="FSelect" action="font_select.asp"><p align="center">
  136.     <td width="11%">
  137.     <p align="center">
  138.   <b><font face="Arial" size="2" color="#C0C0C0">
  139.   <a target="_self" href="font_list.asp"><font color="#C0C0C0">Recommended</font></a></font></b></td>
  140.     <td width="89%">
  141.   <input type="radio" name="RA1" <%If (rsConfig.Fields.Item("REC_FONTS").Value) = "True" then response.write "checked"%> onClick="document.FSelect.submit()" value="REC"></td>
  142.   </tr>
  143.   <tr>
  144.     <td width="11%">
  145.     <p align="center">
  146.   <b><font face="Arial" size="2" color="#C0C0C0">System</font></b></td>
  147.     <td width="89%">
  148.   <input type="radio" name="RA1" <%If (rsConfig.Fields.Item("SYS_FONTS").Value) = "True" then response.write "checked"%> onClick="document.FSelect.submit()" value="SYS"></td>
  149.    </form>
  150.   </tr>
  151. </table>
  152. </body>
  153. </html>
  154. <%
  155. rsConfig.Close()
  156. If Err Then
  157. Response.Write "<p><font face='Arial'><font color='#FF0000'> There was an error processing this page, please make sure you meet the </font>"
  158. Response.Write "<a target='_blank' href='http://www.graphic-group.com/inline_frames/ggcss/about.asp'>"
  159. Response.Write "<font color='#FF0000'>system requirements</font></a><font color='#FF0000'>.</font></font></p>"
  160. End If
  161. %>